Dim session As NotesSession
Dim db As NotesDatabase

Class WebServiceOne
	'PortType类 设置为 WebServiceOne
	'端口类型名称 设置为 WebServiceOne
	'服务元素名称 设置为 WebServiceOneService
	'服务端口名称 设置为 Domino
	Sub NEW
		Set session = New NotesSession
		Set db = session.CurrentDatabase
	End Sub
	
	Function operation1(input1 As String, input2 As String) As String
	End Function
	
	Function operation2(input1 As String, input2 As String) As String
	End Function
	
End Class